GFA-AMIGAB ILBM.LIBRARY DIESER VERSION SREEN.MODUS SCREEN.MODUS MOUSEX ENDIF ZADRESSE EZEIT IFMOUSEX EXIST LIBRARY AWFINV DYRECTORY AUSWAHL BACKG HELP2 LIBRARYNAME ILBMBASE SCREEN.BREITE ILBM.TIEFE SCREEN.MODUS SCREEN.H ILBM.BREITE ILBM.H SCREEN.FARBE ILBM.VP.MODI ILBM.BYTES SCREEN.BYTES LOOP1 SPRAYRAD MEMADDR D_READ READY ILBM.MODUS ILBM.REG TIEFE NEWPLANE FARBE.ROT FARBE.GR FARBE.BLAU FARBE.RGB CCRT.RICHTUNG CCRT.START CCRT.ENDE CCRT.SECS CCRT.MICS LOOP2 SCREEN.ZEILE CODE DISK.BYTE LOOP3 FILE_NAME FILENAME WINDOW SCREE.MODUS MSGNUM D_WRITE ZADRESSE BEITS BODY_LENGTH IWFYO DATENLENGHT ILBM.LENGHT BODYPOSITION OLDPOS BODYLEN ALTERWERT BBPLSTRUCT BBPLSTRUCT2 PLADRESS AZEIT EZEIT HLER0 LOOP4 BLITPLANES BPLAD SRCBITMAP DESTBITMAP DESTX DESTY SIZEX SIZEY MINTERM TEMPA BUCOL DISKFONTBASE FONTALT TEXTATTR LEN TEXT_FONT FONT.H HE FONT_H BUFFER BUFBYTES FLAGS SUPERPLANE1 SUPERW SUPERH EXTRAPLANE BITMAP.TIEFE LINIE GERADE BOGEN SPRAY RECHTECK RECHTECK1 KREIS KREIS1 BRUSH ILBM_CMAP ILBM_CAMG COORDS PLUSBYTE HLER3 WFAABY PALETTE ELLIPSE PELLIPSE BUFFER COLOR.NR COLOR.ANZEIGE ALLOCMEM BLTBITMAP FREERASTER .ARRAY XOPOS YOPOS XUPOS YUPOS MOD_B MOD_H AWFAA MAUSZEIGER SBM2 ILBM_BODY LINEB FARBE.ROT FARBE.GR FARBE.BLAU VORAB _AUFBAUEN AUSWAHLFENSTER HAUPTSCHLEIFE LADE_IFF_ILBM LESE_CHUNK MAUS_ZEIGER1 LESE_BMHD LESE_CMAP LESE_CAMG LESE_CRNG LESE_GRAB LESE_DEST LESE_SPRT LESE_CCRT LESE_BODY LESE_UNBEKANNT MAUS_ZEIGER2 SAVE_IFF_ILBM AWF_AA SAVEWINDOWTOIFF _AUFBAU AUSWERTUNG PALETTE_01 PALETTE01 WERKZEUGFENSTER_01 ENDE2 VARIABLEN WERKZEUGFENSTER_02 COORDS TASTATURAUSWERTEN POINT MAUSAUSWERTUNG GETIFFPMSG SAVE_IFF_ILBM2 SAVE_CHUNK SAVE_BMHD SAVE_CMAP SAVE_CAMG SAVE_BODY TESTLEN MAKE_BUFFER BUFFER_TO_SCREEN SCREEN_TO_BUFFER CLOSE_BUFFER OPEN_BUFFER SAVE_BITMAP BITMAP_LADEN BITMAP_SPEICHERN FREEMEM EXITIF BLTBITMAP OPEN_BUFFER2 CLOSE_BUFFER2 OPEN_BUFFER_TEST_2 CLOSE_BUFFER_TEST_2 PO_SCREEN_TO_BUFFER PO_BUFFER_TO_SCREEN PAINT LINIE_Z WERKZEUGAUSWAHL SPRAY_Z SPRAY WERKZEUG WERKZEUG_ANZEIGE PROCWERKZEUG_ANZEIGE WERKZEUG_DEFINE WERKZEUG_AUSWAHL PAINTBOXAUSWAHL WERKZEUG_INAKTIVIEREN SPRAY_DEFINE REQ_BOX PASTE 256_FARBEN PROC256_FARBEN PROCEDURE PALETTE PALETTE_LADEN PALETTE_SPEICHERN FARBEINSTELLUNG FEF_AUFBAU FARBAUSWAHL FARBAUSWAHL_ANZEIGE GET_RGB4 TEXT_Z OPENDISKFONT AVAILFONTS COORDS2 ELLIPSE GERADE ABOUT COORDS_DURING_PAINT COORDS_DURING_PAINT_1 ````` Andreas Meinert `````` Itzehoe `````````````````` 2/8/94 ````````````` library$="ilbm.library"+CHR$(0) ilbmbase%=OpenLibrary(V:library$,0) IF ilbmbase%=0 ALERT 0," Konnte ilbm.library nicht ffnen ",1,"OK",ok% EDIT ENDIF U_PAINT! HIRES|LORES! 6144 !+256 MENU 23,256+16+64 help2$="deutsch" PICTURE F LOADF !IFF-ILBMF !BITMAPF! !--------FF !--------FF !--------FF !--------FF SAVEF !IFF-ILBMF !BITMAPF- !---------F !---------F !---------F !---------F ----------F PALETTEFF !LOADF !SAVEF !-------F !CHANGEF !PICK COLORF EXTRASF !CLEAR SCREENF !-------------F !-POINTERFF !WORKBENCH F1F !-------------F ----------F +QQUITF ABOUTF BRUSH F LOAD F- !-IFF-ILBMF !---------F !-ICONF !-SPRITEF !-BOBFT !-GET&PUTFF SAVE F- !-IFF-ILBMF !---------F !-ICONF !-SPRITEF !-BOBFP !-GET&PUTFF ---------FF SIZEF !-STRETCHF !-ROTATEF !-FLIPF EXTRAF- !-HANDLEF !---------F !---------F !---------F !---------F MODEF ---------F ---------F ---------F ---------F ---------FF ---------FF Gesammtfl colorboxrahmen oben und unten rechts Koordinaten Werkzeugerahmen Werkzeuge + Aktuelle Malfarbe buffer aktuelle Maldefinition ' Pinselbreite ' Farbe NEW PICTURE ? ! OK|NO! FARBAUSWAHL WERKZEUGAUSWAHL PAUSE 16 farbauswahl PAUSE 16 LOAD PALETTE ! LOAD! SAVE PALETTE ! SAVE! New_File Old_File GFA_BASIC____3.52_PRGF U_PAINT VERSION 1.80F ANDREAS MEINERTF9 GES. SCHOLL ALLEE 115F 25524 ITZEHOEF9 GERMANY F 12.09.1994F PAUSE 16 PBOX 77*sbm|+1,rbyo%+5,95*sbm|-1,rbyo%+13 deutschF deutschF! deutschF englishF francaisFF PAUSE 16 PAUSE 20 Color .>FF /LF! GOSUB text Fy PBOX rbxl%*sbm|+76*sbm|,rbyu%-11,rbxr%*sbm|-76*sbm|+1,rbyu%-3 PBOX 209*sbm|,rbyo%+5,218*sbm|,rbyo%+13 PBOX 232*sbm|,rbyo%+5,241*sbm|,rbyo%+13 SizeF PAUSE 16 D F! LOAD IFF-ILBM ! LOAD! 1005=Mode Old_File 1006=Mode New_File Puffer einrichten und f r die Chunk_Bereiche unterteilen ILBMF MENU 23,256+16+64 Keine ILBM Datei !!!! Keine 240 Bytes??? ! PAUSE 8 BMHDF CMAPF CAMGF BODYF Can`t load FORM (h>256) ! Can`t load FORM (w>640) ! lo_Res hi_Res Darstellungsparameter bilden nicht komprimierte Daten ByteRun1_Encoding Compressionmode unknown ! PBOX 209*sbm|,rbyo%+5,218*sbm|,rbyo%+13 PBOX 232*sbm|,rbyo%+5,241*sbm|,rbyo%+13 CodingF SAVE IFF-ILBM ! SAVE! 1006=New_File 1004=Read_Write 1005=Old_File Konnte Datei nicht ffnen ! ! ezeit%=TIMER PRINT (ezeit%-azeit%)/200 -farbe.gr n%*16-farbe.blau%/128 SAVE BITMAP ! SAVE ! LOAD BITMAP ! LOAD ! in Bytes *8=Pixel_Anzahl s.b%*8*s.h%/8 i4Fe ANDERES BILDFORMAT ! OK ! QUIT ? ! YES | NO !